home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magazyn Internet 2001 September
/
MICD2001_09_NR2.iso
/
Flash
/
Przyklady
/
Sterowanie.swf
/
scripts
/
frame_1
/
PlaceObject2_2_1
/
CLIPACTIONRECORD onClipEvent(enterFrame).as
next >
Wrap
Text File
|
2001-07-23
|
1KB
|
44 lines
onClipEvent(enterFrame){
if(Key.isDown(Key.UP))
{
if(predkosc < Maksymalna_w_przod)
{
predkosc += przyspieszenie;
}
}
if(Key.isDown(Key.DOWN))
{
if(Maksymalna_w_tyl < predkosc)
{
predkosc -= przyspieszenie;
}
}
if(granica_obrotu < Math.abs(predkosc))
{
if(Key.isDown(Key.RIGHT))
{
kierunek -= Kat_obrotu;
this._rotation = - kierunek;
}
else if(Key.isDown(Key.LEFT))
{
kierunek += Kat_obrotu;
this._rotation = - kierunek;
}
}
this._y -= predkosc * Math.cos(3.141592653589793 * kierunek / 180);
this._x -= predkosc * Math.sin(3.141592653589793 * kierunek / 180);
if(this._x < ObszarXMIN || ObszarXMAX < this._x || this._y < ObszarYMIN || ObszarYMAX < this._y)
{
predkosc = - predkosc * strata_energii;
}
if(0 < predkosc)
{
predkosc -= opor_ruchu;
}
if(predkosc < 0)
{
predkosc += opor_ruchu;
}
}